Syntax:        TXSETPFONT(<expN>)

     Purpose:       Select font using the associated font ID.

     Argument:      <expN> is the font ID.

     Returns:        0  Successful
                     1  <expN> not numeric

     Usage:         TXSETPFONT() is useful anytime you need to change
                    the font you are printing. This is associated with
                    a soft font you have previously downloaded.

     Example:       * Print using font ID #1
                    TXDLFONT("TR10R#US.SFP", 1)
                    TXDLFONT("TR18R#US.SFP", 2)
                    TXSETPFONT(1)
                    @ 01, 10 say "This will print in TR 10 point"
                    TXSETPFONT(2)
                    @ 05, 10 say "This will print in TR 18 point"

     See Also:      TXDLFONT()